home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
games
/
zmud455.zip
/
ZMUD.EXE
/
0
/
RCDATA
/
TDEFINE
/
TDEFINE.txt
Wrap
Text File
|
1997-04-13
|
16KB
|
584 lines
object Define: TDefine
Left = 202
Top = 124
HelpContext = 103
ActiveControl = OKBtn
BorderStyle = bsDialog
Caption = 'Aliases'
ClientHeight = 353
ClientWidth = 564
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ShowHint = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object AliasText: TLabel
Left = 195
Top = 162
Width = 54
Height = 13
Alignment = taRightJustify
Caption = 'Alias name:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object ComText: TLabel
Left = 194
Top = 186
Width = 55
Height = 13
Alignment = taRightJustify
Caption = 'Commands:'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 184
Top = 32
Width = 32
Height = 32
AutoSize = True
end
object Label3: TLabel
Left = 224
Top = 40
Width = 269
Height = 13
Caption = 'Aliases are short-cuts for executing a series of commands'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 240
Top = 56
Width = 222
Height = 13
Caption = 'Enter the name of the short-cut in the Alias field'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 240
Top = 72
Width = 272
Height = 13
Caption = 'Enter the commands to be executed in the Command field'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object HelpTxt: TLabel
Left = 256
Top = 86
Width = 218
Height = 13
Caption = 'separate multiple commands with a ; character'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel1: TBevel
Left = 168
Top = 32
Width = 9
Height = 259
Shape = bsLeftLine
end
object Label7: TLabel
Left = 8
Top = 32
Width = 86
Height = 13
Caption = 'Stored Aliases:'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 8
Top = 62
Width = 120
Height = 13
Caption = 'Double click to execute it'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton1: TSpeedButton
Left = 256
Top = 184
Width = 20
Height = 20
Hint = 'Edit command|'
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
00333377737FFFFF7733333033000000033333373377777773330000}
NumGlyphs = 2
OnClick = SpeedButton1Click
end
object Inh: TLabel
Left = 256
Top = 216
Width = 188
Height = 13
Caption = 'Inherited from parent settings file'
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label8: TLabel
Left = 8
Top = 48
Width = 148
Height = 13
Caption = 'Click on an alias below to edit it'
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object OKBtn: TBitBtn
Left = 320
Top = 300
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = OKBtnClick
Kind = bkOK
Margin = 2
Spacing = -1
IsControl = True
end
object CancelBtn: TBitBtn
Left = 402
Top = 300
Width = 77
Height = 27
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = CancelBtnClick
Kind = bkCancel
Margin = 2
Spacing = -1
IsControl = True
end
object HelpBtn: TBitBtn
Left = 484
Top = 300
Width = 77
Height = 27
HelpContext = 103
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
Kind = bkHelp
Margin = 2
Spacing = -1
IsControl = True
end
object AliasName: TEdit
Left = 256
Top = 160
Width = 81
Height = 21
Hint = '|Name of alias (A-Z 0-9 _ characters only)'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnChange = AliasNameChange
end
object AliasCom: TEdit
Left = 280
Top = 184
Width = 265
Height = 21
Hint = '|Commands to assign to alias name'
AutoSize = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnChange = AliasComChange
end
object AliasList: TListBox
Left = 8
Top = 80
Width = 154
Height = 211
ExtendedSelect = False
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
Sorted = True
TabOrder = 5
OnClick = AliasListClick
OnDblClick = AliasListDblClick
OnMouseDown = AliasListMouseDown
end
object NewBtn: TBitBtn
Left = 8
Top = 300
Width = 62
Height = 27
Hint = '|Create a new alias'
Caption = '&New'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = NewBtnClick
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object DelBtn: TBitBtn
Left = 136
Top = 300
Width = 27
Height = 27
Hint = 'Delete alias'
TabOrder = 7
OnClick = DelBtnClick
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 564
Height = 22
Align = alTop
BevelOuter = bvNone
TabOrder = 8
object Panel2: TPanel
Left = 0
Top = 0
Width = 46
Height = 22
Align = alLeft
BevelOuter = bvNone
TabOrder = 0
object TopBtn: TSpeedButton
Left = 0
Top = 0
Width = 22
Height = 22
Hint = 'Keep on top|Forces this dialog to display on top of others'
AllowAllUp = True
GroupIndex = 1
NumGlyphs = 2
OnClick = TopBtnClick
end
object LoadBtn: TSpeedButton
Left = 22
Top = 0
Width = 22
Height = 22
Hint = 'Update for active MUD|Loads aliases for current character window'
NumGlyphs = 2
OnClick = LoadBtnClick
end
end
object Panel3: TPanel
Left = 46
Top = 0
Width = 518
Height = 22
Align = alClient
BevelOuter = bvLowered
TabOrder = 1
object WalkBtn: TBtnPanel
Left = 321
Top = 1
Width = 88
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Speedwalking'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = WalkBtnClick
end
object TrigBtn: TBtnPanel
Left = 257
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Triggers'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = TrigBtnClick
end
object ButBtn: TBtnPanel
Left = 193
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Buttons'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = ButBtnClick
end
object MacroBtn: TBtnPanel
Left = 129
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Macros'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = MacroBtnClick
end
object VarBtn: TBtnPanel
Left = 65
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Variables'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = VarBtnClick
end
object BtnPanel5: TBtnPanel
Left = 1
Top = 1
Width = 64
Height = 20
BorderColor = clHighlight
Align = alLeft
BorderWidth = 1
Caption = 'Aliases'
Font.Color = clBtnText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = AliasBtnClick
end
end
end
object CopyBtn: TBitBtn
Left = 72
Top = 300
Width = 62
Height = 27
Hint = '|Make a copy of the currently selected alias'
Caption = '&Copy'
Font.Color = clBtnText
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = CopyBtnClick
Glyph.Data = {
56070000424D5607000000000000360400002800000028000000140000000100
0800000000002003000000000000000000000000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
A600000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
03030303030303030303030303030303030303030303FFFFFFFFFFFFFFFFFFFF
0303030303030303030000000000000000000003030303030303030303F8F8F8
F8F8F8F8F8F8F8FF03030303030303030300FFFFFFFFFFFFFFFF000303030303
0303030303F8FF03030303030303F8FF03030303030303030300FBFFFBFFFBFF
FBFF0003030303030303030303F8FF03FFFFFFFFFFFFF8FF0303030303030303
0300FFF8F8F8F8F8F8FF0003030303030303030303F8FFF8F8F8F8F8F803F8FF
03030303030303030300FBFFFBFFFBFFFBFF00030303030303FFFFFFFFF8FF03
FFFFFFFFFFFFF8FF03030303000000000000FFF8F8F8F8F8F8FF000303030303
F8F8F8F8F8F8FFF8F8F8F8F8F803F8FF0303030300FFFFFFFF00FBFFFBFFFBFF
FBFF000303030303F8FF030303F8FF03FFFFFFFFFFFFF8FF0303030300FFFFFF
FF00FFF8F8F8F8F8F8FF000303030303F8FF030303F8FFF8F8F8F8F8F803F8FF
0303030300FF07070700FBFFFBFFFBFFFBFF000303030303F8FF030303F8FF03
0303030303FFF8FF0303030300FFFFFFFF00FFFFFFFFFFFF0000000303030303
F8FF030303F8FF0303030303F8F8F8030303030300FF07070700FBFFFBFFFBFF
0000030303030303F8FF030303F8FFFFFFFFFFFFF8F803030303030300FFFFFF
FF000000000000000003030303030303F8FF030303F8F8F8F8F8F8F8F8030303
0303030300FF070707070707FF0003030303030303030303F8FF030303030303
03F8FF03030303030303030300FFFFFFFFFFFFFFFF0003030303030303030303
F8FF030303030303FFF8FF03030303030303030300FFFFFFFFFFFF0000000303
0303030303030303F8FF0303030303F8F8F80303030303030303030300FFFFFF
FFFFFF00000303030303030303030303F8FFFFFFFFFFFFF8F803030303030303
030303030000000000000000030303030303030303030303F8F8F8F8F8F8F8F8
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303030303030303
0303030303030303030303030303030303030303030303030303}
Margin = 2
NumGlyphs = 2
Spacing = -1
IsControl = True
end
object HelpPanel: TPanel
Left = 0
Top = 333
Width = 564
Height = 20
Align = alBottom
Alignment = taLeftJustify
BevelOuter = bvLowered
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 10
end
object PopupMenu1: TPopupMenu
Left = 184
Top = 248
object PopupMenu: TMenuItem
Caption = 'Execute'
ShortCut = 0
OnClick = AliasListDblClick
end
object N1: TMenuItem
Caption = '-'
ShortCut = 0
end
object New1: TMenuItem
Caption = 'New'
ShortCut = 0
OnClick = NewBtnClick
end
object Copy1: TMenuItem
Caption = 'Copy'
ShortCut = 0
OnClick = CopyBtnClick
end
object Delete1: TMenuItem
Caption = 'Delete'
ShortCut = 0
OnClick = DelBtnClick
end
end
end